﻿Imports EVOLTA.Promocion.Bl.Bc
Imports EVOLTA.Promocion.Bl.Be

Partial Class reportes_consultaInmueblesEtapaDisponibles
    Inherits System.Web.UI.Page

    Private inmueble As EunidInmobiliarias = Nothing
    Private inmuebles As List(Of EunidInmobiliarias) = Nothing

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Response.CacheControl = "no-cache"
        Response.AddHeader("Pragma", "no-cache")
        Response.Expires = -1
        '***********************************************************'
        If Not IsPostBack Then
            inmueble = New EunidInmobiliarias
            inmueble.idProyecto = Me.Master.idProyecto
            inmueble.idEtapa = Me.Master.idEtapa
            cargarInmueblexEtapa(inmueble)
        End If
    End Sub
    Private Sub cargarInmueblexEtapa(ByVal pUnidInmobiliaria As EunidInmobiliarias)
        inmuebles = RunidInmobiliarias.Reporte_InmueblesXEtapaBloqueados(Me.Master.descEmpresa, False, pUnidInmobiliaria)
        Session("ListaInmuebles") = inmuebles
        If Not inmuebles Is Nothing Then
            gvwInmueblexEtapa.DataSource = inmuebles
            gvwInmueblexEtapa.DataBind()
        End If
    End Sub
    Protected Sub gvwInmueblexEtapa_RowDatabound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewRowEventArgs) _
    Handles gvwInmueblexEtapa.RowDataBound
        If e.Row.RowType = DataControlRowType.DataRow Then
            e.Row.Attributes.Add("OnMouseOver", "Resaltar_On(this);")
            e.Row.Attributes.Add("OnMouseOut", "Resaltar_Off(this);")
            e.Row.Attributes("OnClick") = Page.ClientScript.GetPostBackClientHyperlink(Me.gvwInmueblexEtapa, "Select$" + e.Row.RowIndex.ToString)
            e.Row.Style.Add("cursor", "hand")
        End If
    End Sub
    Protected Sub gvwInmueblexEtapa_RowEditing(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewEditEventArgs) Handles gvwInmueblexEtapa.RowEditing

    End Sub
    Protected Sub btnExcel_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnExcel.Click
        inmuebles = Session("ListaInmuebles")
        If Not inmuebles Is Nothing Then
            Dim fileName As String = "Disponibles{0}.xls"
            fileName = String.Format(fileName, DateTime.Now.ToShortDateString())
            Dim Response As HttpResponse = HttpContext.Current.Response
            Response.ContentType = "application/vnd.ms-excel"
            Response.Charset = "UTF-8"
            Response.ContentEncoding = System.Text.Encoding.Default
            Response.AddHeader("Content-Bloqueados", "attachment; filename=" + fileName)

            Response.Write("Nº Correlativo")
            Response.Write(vbTab)
            Response.Write("Descripción Inmueble")
            Response.Write(vbTab)
            Response.Write("Precio Venta")
            Response.Write(vbTab)
            Response.Write(vbCrLf)

            Dim value As String
            For Each inmueblexEtapa In inmuebles
                value = inmueblexEtapa.correlativo
                Response.Write(value)
                Response.Write(vbTab)

                value = inmueblexEtapa.EdificioTpoInmuebleModeloInmueble
                Response.Write(value)
                Response.Write(vbTab)

                value = inmueblexEtapa.valorVenta
                Response.Write(value)
                Response.Write(vbCrLf)
            Next
            Response.End()
        Else
            Dim jsMensaje As String = Nothing
            jsMensaje = "<script>javascript:alert('La consulta no pudo ser procesada. Por favor inténtelo de nuevo.');</script>)"
            Controls.Add(New LiteralControl(jsMensaje))
        End If
    End Sub

End Class
